home *** CD-ROM | disk | FTP | other *** search
Notes {labels: 'NIL, viewFont: 10241} // nil=Unfiled, or specify a folder, e.g., 'Business. remove viewFont for current Styles default //ERASE! in order to erase existing entries in this folder first picoferm.nwt -- Slurpee format 1/1/96 Copyright 1993-96. S. Weyer. All Rights Reserved Worldwide. picoferm.nwt and PFB.pkg are freeware. Newt is shareware. For further info: http://www.netaxs.com/~weyer/newton/releases.html mailto:weyer@netaxs.com (optional) see picoferm.bit for Bitmaps: PFBIcon (optional) install ViewCnst.pkg for view constants (e.g., vfFillWhite) and ButtonBounds Newt source version of Pico Fermi Bagels compatible with NOS 2.0 - supports landscape mode package size =~20K ---------- PFB //:doObj('build,'PFB) //:doObj('add,'PFB) //:doObj('remove,'PFB) {viewClass: clView, // add our own status&title rather than use _proto: protoApp viewBounds: NIL, // set in viewSetupFormScript declareSelf: 'base, // so close box will work viewFormat: 328017, // vfFillWhite + vfFrameBlack + vfPen*1 + vfInset*1 + vfShadow*1 viewFlags: 4, // vApplication viewJustify: 0, title: "Pico Fermi Bagels", allowZero: true, // set by ZeroCheck answer: nil, numDigits: 3, // set by DigitsPicker win: nil, newBounds: func(view,loffset,toffset,roffset,boffset,xgrid,ygrid) begin local vb := view.viewBounds; local wid := vb.right+roffset-vb.left-loffset; local ht := vb.bottom+boffset-vb.top-toffset; self.viewBounds := RelBounds( loffset, toffset, if xgrid then Floor(wid/xgrid)*xgrid else wid, if ygrid then Floor( ht/ygrid)*ygrid else ht); end, winSound: @102, // ROM_funbeep newSound: @314, // ROM_poof viewSetupFormScript: func() begin answer := win := helpView := nil; self.PFBview := self; // for :newBounds in guessExpando local ap := GetAppParams(); // configure to screen size self.viewBounds := RelBounds( ap.AppAreaLeft,ap.AppAreaTop, ap.AppAreaWidth,ap.AppAreaHeight); end, viewQuitScript: func() begin if helpView then helpView:close(); helpView := NIL; end, _package: { shortTitle: "PFB 1.3", icon: :GetPictAsBits("Bitmaps","PFBIcon"), }, } ---------- PFB.helpStuff~ {// these added to support help book (see helpapp1.nwt) helpBook: :helpBookTemplate(), // Newt creates one helpView: NIL, openHelp: func() if helpBook then begin if not helpView then helpView := BuildContext( {_proto: GetRoot().TinyTim._proto, bookRef: helpBook}); GetRoot().TinyTim:Close(); // in case system help is open helpView:openManual(helpBook); end, } ---------- PFB.rotateStuff~ {// to support Rotate for Newton OS 2.0 //reorienting: NIL, ReorientToScreen: func() begin //reorienting := TRUE; :SyncView(); :RedoChildren(); //reorienting := NIL; end, } ---------- PFB.gameStuff~ {generateAnswer: func() begin local i, rdig, z0 := if allowZero then 0 else 1, z9 := 9; answer := Array (numDigits, nil); for i:=0 to numDigits-1 do begin repeat rdig := Random (z0,z9) until not SetContains(answer,rdig); answer[i] := rdig; if rdig=z0 then z0:=z0+1 // squeeze range to minimize subsequent random gen else if rdig=z9 then z9:=z9-1; end; end, newGame: func() begin answer := win := nil; PlaySound(newSound); if guessExpando exists then guessExpando:reset(); end, showAnswer: func() begin if win then PlaySound(winSound); if answerGlance exists then begin answerGlance.text := if answer then (if win then "You won!" else "Too hard?") && "The answer is" && Stringer(answer) else "Hey! You haven't even guessed yet!!"; answerGlance:open(); end; end, } ---------- PFB.evaluateGuess func(guess) // separate from main PFB app frame for smaller note/easier editing begin local i, g, result, charnum; local zeroch := ord($0), fermi:=0, pico:=0; local z := if allowZero then 0 else 1; // if we haven't generated an answer yet, do it now. if not answer then :generateAnswer(); // destructively remove extraneous spaces, decimal point StrReplace(guess," ", "", nil); StrReplace(guess,".", "", nil); // check length of guess if StrLen(guess) <> numDigits then result := "<not "&numDigits&" digits>"; // check that guess is all digits, with none duplicated local aguess := Array(numDigits,nil); for i:=0 to min(numDigits,StrLen(guess))-1 do begin g := guess[i]; charnum := Ord(g)-zeroch; // conv char to digit if (charnum < z) or (charnum > 9) then result := result& "<"& g &" not "&z&"-9>" else if SetContains(aguess,charnum) then result := result& "<"& g &" duplicate>" else aguess[i]:=charnum; // save for duplicate comparison // check guess against answer if answer[i]=charnum then fermi := fermi+1 else if SetContains(answer,charnum) then pico := pico+1; end; if result // return error or feedback then return result else if fermi=0 and pico=0 then return "Bagels"; for i:=1 to fermi do result := result & "Fermi "; for i:=1 to pico do result := result & "Pico "; if fermi=numDigits then win:= true; result; end ---------- ButtonBounds func(width) // to add application buttons to protoStatus at Newt development time begin // or install ViewCnst.pkg plug-in to obtain this method local left1:=25, top:=2, spacing:=6, bottom:=15; if width > 0 then SetBounds(spacing, top, spacing + width, bottom) // other buttons else SetBounds(left1, top, left1 - width, bottom); // first button end ---------- PFB+myStatus {_proto: protoStatus, // see protos2.nwt } ---------- PFB.myStatus+b1info {_proto: protoTextButton, buttonClickScript: openHelp, // basically same as: func() :openHelp(), // copy method ref text: "Info", viewBounds: :ButtonBounds(-44), // first application button (see protos2.nwt) } ---------- PFB.myStatus+b2giveup {_proto: protoTextButton, buttonClickScript: showAnswer, //func() :showAnswer(), // copy method ref text: "Give Up", viewBounds: :ButtonBounds(44), viewJustify: 8389670, // vjParentRightH + vjParentTopV + vjSiblingRightH + oneLineOnly + vjCenterH + vjCenterV } ---------- PFB+titleObj {_proto: protoTitle} ---------- PFB+ZeroCheck {_proto: protoCheckbox, text: "Allow Zero", valueChanged: func() begin allowZero := viewValue; if answer then :newGame(); end, viewBounds: RelBounds(8,17,72,14), viewSetupFormScript: func() begin viewValue := allowZero; inherited:?viewSetupFormScript(); end, viewValue: true, // initial default } ---------- PFB+NewGameButton {_proto: protoTextButton, buttonClickScript: newGame, //func() :newGame(), // copy method ref text: "New Game", viewBounds: RelBounds(0,20,60,10), viewJustify: 8388630, // vjCenterH + vjCenterV + oneLineOnly + vjParentCenterH } ---------- PFB+DigitsPicker {_proto: protoLabelPicker, labelCommands: ["2","3","4", "5"], text: "Digits", textSetup: func() NumberStr(numDigits), viewBounds: RelBounds(-66,19,66,14), viewJustify: 8388640, // vjLeftH + oneLineOnly + vjParentRightH labelActionScript: func(cmd) // assumes single digit begin local newDigits := Ord(labelCommands[cmd][0])-Ord($0); if numDigits <> newDigits then begin numDigits := newDigits; if guessExpando exists then guessExpando:setStyle(numDigits); if answer then :newgame(); end; end, } ---------- PFB.myGuessEProto {_proto: protoTextExpando, entryFlags: 11009, // vVisible+vClickable+vGesturesAllowed+vNumbersAllowed+vSingleUnit +vNoKeys(16)??? viewJustify: 8388624, // vjParentCenterH+vjParentTopV + vjLeftH+vjTopV+oneLineOnly viewSetupDoneScript: func() begin entryLine.textFlags := 2; //vNoSpaces; inherited:?viewSetupDoneScript(); end, // label: "Guess N", // path: 'guessN, } ---------- PFB+GuessExpando {_proto: protoExpandoShell, editHeight: 46, indent: 60, lineHeight: 14, //lines: [], // set in viewSetupFormScript //numLines: 16, // set in viewSetupFormScript //target: NIL, // set in viewSetupFormScript //viewBounds: RelBounds(1,35,238,270), // set via :newBounds in viewSetupFormScript viewFormat: 336, viewSetupFormScript: func() begin local i, symslot; self.target := self; :newBounds(PFBview,1,35+editHeight,-1,-27,nil,lineHeight); self.numLines := min(16,Floor((viewbounds.bottom-viewbounds.top)/lineHeight)); viewbounds.top := 35; // viewbounds.top-editHeight editWidth := viewBounds.right - viewBounds.left - 20; :setStyle(numDigits); self.lines := Array(numLines,nil); for i:=1 to numLines do begin symslot := Intern("guess"&i); lines[i-1]:= {_proto: myGuessEProto, // defined in app label: "Guess "&i, path: symslot, // e.g., 'guess1 }; SetValue(target,symslot,clone("")); end; inherited:viewSetupFormScript() end, reset: func() begin local fr; foreach fr in lines do SetValue(target, fr.path, clone("")); end, setStyle: func(dig) self.textStyle := if dig <=3 or editWidth>240 // don't shrink for landscape then 0x00003001 // userFont12 else if dig=4 then 0x00002801 // userFont10 else 0x00002401, // userFont9 flushEdits: func() nil, //inherited:?flushEdits(), // seems to be needed CloseEdit: func(view) begin local val := target.(view.path); local lab := :evaluateGuess(val); SetValue(target, view.path, val && lab); if win then :showAnswer(); end, } ---------- PFB+AnswerGlance {_proto: protoGlance, text: "Welcome to Pico Fermi Bagels", viewFlags: 515, // vVisible must be on to avoid later problems... viewBounds: RelBounds(0,0,140,60), viewJustify: 86, // vjParentCenterH+vjParentCenterV + vjCenterH+vjCenterV } ---------- PFB.helpBook+page1 .# first page to be added to helpBook. name only used for editing & to determine default build order .subject 1 Describe PFB .story PFB stands for Pico, Fermi, Bagels -- a number guessing game, similar to MasterMind or Jotto. For each guess, you will be told: - Fermi: a correct digit placed correctly - Pico: a correct digit placed incorrectly - Bagels: no digits are correct ---------- PFB.helpBook+page2 .subject 1 Understand the Code .story This version of Pico Fermi Bagels (1.3) includes the Newt source; see: pfb.txt. You could also register for the Newt Development Environment (see "Develop") to obtain a Newton programming manual and more NewtonScript application examples. ---------- PFB.helpBook+page3 .subject 1 Distribute .story PFB is postcardware*. PFB may be distributed freely as long as all of the files are included and unmodified. You are free to make modifications for your own use. *Dedicated to Kristina and Ellie -- send email to Vader42@aol.com and EllieJelly@aol.com, or postcards or other valuable tokens of appreciation (address in "Contact Author"). Copyright 1993-96, S. Weyer. All Rights Reserved Worldwide. ---------- PFB.helpBook+page4 .subject 1 Use .story \uFC0B\u Allow Zero: is zero a possible digit? [New Game]: start a new game \uFC01\u Digits: select number of digits (2-5) <write>: guesses <double-tap>: for numeric keypad <close/next label>: see result [Info]: this help book [Give Up]: see answer ---------- PFB.helpBook+page5 .subject 1 Example .story If \uFC0B\u Allow Zero (checked) \uFC01\u Digits 3 PFB's number is 029 1. 445 <4 duplicate> 2. 4567 <not 3 digits> 3. 376 Bagels {no digits correct} 4. 914 Pico {1 digit correct but in wrong place} 5. 820 Fermi Pico {2 digits correct, but 1 in wrong place} . . . 092 Fermi Pico Pico {all digits correct, 2 in wrong places} 029 Fermi Fermi Fermi {win; sound} ---------- PFB.helpBook+page6 .subject 1 Develop .story If you are interested in object-oriented programming, developing applications in NewtonScript and saving as packages directly on your Newton, try the "Newt" development environment. Registered users receive a 80+ pp. manual (Acrobat or paper) and 190+ examples. For further info, see pfb.txt or http://www.netaxs.com/~weyer/newton/releases.html ---------- PFB.helpBook+page7 .subject 1 Contact Author .story Steve Weyer 17 Timber Knoll Drive Washington Crossing, PA 18977-1052 Internet: weyer@netaxs.com America Online, eWorld, NewtonMail: SteveWeyer Compuserve: 74603,2051 http://www.netaxs.com/~weyer/newton/releases.html ---------- BYE! 
